;lisp
;(print "Hello World")

;(defun sum(n) (let ((s 0)) (dotimes (i n s) (incf s i))))

;(print (sum 10))

;; (defun addn(n)
;;     #'(lambda (x)
;;         (+ x n))
;; )
;(addn 10 20)

;symbol 

;lists
(defun addn(n)
    #'(lambda (x)
        (+ x n)
    )
)

(defun ask-number()
    (format t "Please enter a number:")
    (let ((val (read)))
        (if (numberp val)
            (print val)
            (ask-number))))
(ask-number)